home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aae.d64 / dos 5.1 instruct (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  5KB  |  146 lines
  1. 10 POKE53281,12:POKE53280,12:PRINTCHR$(14):POKE198,.
  2. 15 PRINT"[147][144]S[146]CREEN OR P[146]RINTER (S/P)?"
  3. 16 WAIT198,1:GETP$:PRINT"[147]";:IFP$="P"THENOPEN4,4,7
  4. 20 FORI=1TO22
  5. 30 READA$
  6. 40 IFA$="[157]"THENGOSUB80:CLOSE4:END
  7. 50 PRINTA$:IFP$="P"THENPRINT#4,A$
  8. 60 NEXT
  9. 70 GOSUB80:GOTO20
  10. 80 PRINT"      PRESS A KEY TO CONTINUE[146]";
  11. 90 GETB$:IFB$=""THEN90
  12. 100 PRINT"[147]":RETURN
  13. 10000 DATA"         [196][207][211] 5.1 [201][206][211][212][210][213][195][212][201][207][206][211]
  14. 10010 [131]"      (null)REPARED BY ASCRED (null)AYBERGER
  15. 10020 DATA"           [196]ECEMBER 4, 1984
  16. 10030 [131]"        (null)PDATED (null)EPTEMBER 1985
  17. 10040 DATA"
  18. 10050 [131]"(null)(null)ATNSTR$ (null)RIGHT$(null)LEFT$:              ATNLEN(null)RIGHT$(null)ATN(null)VAL (null)RIGHT$(null)LEFT$:
  19. 10060 DATA"[204][207][193][196]'[195]-64 [215][197][196][199][197]',8           [210][213][206]
  20. 10070 [131]"(null)(null)ATNSTR$'STR$(null)(null) 5.1',8,1            (null)(null)(null)52224
  21. 10080 DATA"
  22. 10090 [131]"             LEN(null)(null)(null)ATN(null)STR$(null)
  23. 10100 DATA"
  24. 10110 [131]"VALITHER THE '@' OR '>' SIGN MAY BE USED 
  25. 10120 DATA"TO START A [196][207][211] 5.1 COMMAND.  [212]HE '?' 
  26. 10130 [131]"AND '*' MAY BE USED FOR PATTERN 
  27. 10140 DATA"MATCHING.
  28. 10150 [131]"
  29. 10160 DATA"[211][217][206][212][193][216]                 [197][216][193][205][208][204][197]/[195][207][205][205][197][206][212][211]
  30. 10180 [131]"@                      (null)EADS THE ERROR
  31. 10190 DATA"                       CHANNEL AND
  32. 10200 [131]"                       DISPLAYS ITS
  33. 10210 DATA"                       STATUS.
  34. 10220 [131]"
  35. 10230 DATA"@$                     [196]ISPLAYS THE
  36. 10240 [131]"                       DIRECTORY
  37. 10250 DATA"                       WITHOUT
  38. 10260 [131]"                       DESTORYING
  39. 10270 DATA"                       ANY PROGRAM
  40. 10280 [131]"                       RESIDING IN
  41. 10290 DATA"                       MEMORY. [208]AUSE
  42. 10300 [131]"                       LISTING BY
  43. 10310 DATA"                       PRESSING SPACE
  44. 10320 [131]"                       BAR.
  45. 10330 DATA"
  46. 10340 [131]"@$$                    STR$ISPLAYS DISK
  47. 10350 DATA"                       NAME AND NUMBER
  48. 10360 [131]"                       OF 'BLOCKS FREE'
  49. 10380 DATA"
  50. 10390 [131]"@$*=(null)                  STR$ISPLAYS ALL (null)(null)CHR$
  51. 10410 DATA"                       DIRECTORY FILES.
  52. 10430 [131]"
  53. 10440 DATA"@$*=[211]                  [196]ISPLAYS ALL [211][197][209]
  54. 10460 [131]"                       DIRECTORY FILES.
  55. 10480 DATA"
  56. 10485 [131]"
  57. 10490 DATA"@$*=[210]                  [196]ISPLAYS ALL [210][197][204]
  58. 10510 [131]"                       DIRECTORY FILES.
  59. 10530 DATA"
  60. 10540 [131]"@LEN:NEWFILE=OLDFILE     @LEN:GAME=WORK
  61. 10550 DATA"                       WILL MAKE A COPY
  62. 10570 [131]"                       OF A FILE
  63. 10580 DATA"                       NAMED 'WORK' AND
  64. 10600 [131]"                       CALL IT 'GAME'.
  65. 10610 DATA"                       [212]HIS COMMAND CAN
  66. 10630 [131]"                       ALSO BE USED TO
  67. 10640 DATA"                       COMBINE FILES.
  68. 10650 [131]"                       (null)EE YOUR 1541
  69. 10660 DATA"                       MANUAL FOR
  70. 10670 [131]"                       DETAILS.
  71. 10680 DATA"
  72. 10690 [131]"@RIGHT$                     (null)ETURNS THE DISK
  73. 10710 DATA"                       DRIVE TO THE
  74. 10720 [131]"                       SAME STATE
  75. 10730 DATA"                       AS WHEN POWERED
  76. 10740 [131]"                       UP.
  77. 10750 DATA"
  78. 10755 [131]"
  79. 10760 DATA"@[206]:DISKNAME,ID         @[206]:FIVE,GG
  80. 10770 [131]"                       WILL FORMAT A
  81. 10780 DATA"                       DISKETTE AND
  82. 10790 [131]"                       IDENTIFY IT AS
  83. 10800 DATA"                       'FIVE' WITH A
  84. 10810 [131]"                       DISK ID OF 'GG'
  85. 10820 DATA"
  86. 10830 [131]"@(null):NEWNAME=OLDNAME
  87. 10840 DATA"@[210]:BUSINESS=PLEASURE  WILL CHANGE THE
  88. 10850 [131]"                      NAME OF A PROGRAM
  89. 10870 DATA"                      NAMED 'PLEASURE'
  90. 10880 [131]"                      TO 'BUSINESS'
  91. 10890 DATA"
  92. 10900 [131]"@(null):FILENAME           @(null):TEST  WILL
  93. 10910 DATA"                      SCRATCH A FILE
  94. 10920 [131]"                      NAMED 'TEST'
  95. 10930 DATA"                      FROM DISK.
  96. 10940 [131]"
  97. 10942 DATA"
  98. 10944 [131]"
  99. 10946 DATA"
  100. 10948 [131]"
  101. 10950 DATA"@[214]                    @[214]   WILL
  102. 10960 [131]"                      RE-ORGANIZE YOUR
  103. 10970 DATA"                      DISKETTE SO THAT
  104. 10980 [131]"                      YOU CAN GET THE
  105. 10990 DATA"                      MOST FROM THE
  106. 11000 [131]"                      AVAILABLE SPACE.
  107. 11010 DATA"                      [212]HIS COMMAND
  108. 11020 [131]"                      SHOULD NOT BE
  109. 11030 DATA"                      USED WITH RANDOM
  110. 11040 [131]"                      FILES.
  111. 11050 DATA"
  112. 11060 [131]"(null)LEFT$VAL ASC(null)(null)(null)(null)(null)RIGHT$(null)CHR$ LEN(null)(null)(null)ATN(null)STR$(null) LENATN(null) PEEKVAL (null)(null)VALSTR$ RIGHT$(null) 
  113. 11070 DATA"[201][206] [195][207][206][202][213][206][212][201][207][206] [215][201][212][200] [193] [196][201][211][208][204][193][217][197][196] 
  114. 11080 [131]"STR$RIGHT$(null)VALLEN(null)(null)(null)(null) (null)(null) RIGHT$(null) STR$RIGHT$(null)VALLEN(null) (null)(null)STR$VAL.
  115. 11090 DATA"
  116. 11100 [131]"/FILENAME               /DOGS  WILL
  117. 11110 DATA"                        LOAD A [194][193][211][201][195]
  118. 11120 [131]"                        PROGRAM NAMED
  119. 11130 DATA"                        'DOGS'.
  120. 11140 [131]"
  121. 11142 DATA"
  122. 11144 [131]"
  123. 11150 DATA"^FILENAME               ^DOGS  WILL
  124. 11160 [131]"                        LOAD AND RUN A
  125. 11170 DATA"                        [194][193][211][201][195] PROGRAM
  126. 11180 [131]"                        NAMED 'DOGS'.
  127. 11190 DATA"
  128. 11200 [131]"%FILENAME               %CATS  WILL
  129. 11210 DATA"                        LOAD A [205][204]
  130. 11220 [131]"                        PROGRAM CALLED
  131. 11230 DATA"                        CATS TO ITS
  132. 11240 [131]"                        PROPER LOAD
  133. 11250 DATA"                        ADDRESS.
  134. 11260 [131]"
  135. 11270 DATA"<BACK ARROW>FIELNAME    WILL SAVE A
  136. 11280 [131]"                        PEEKATN(null)RIGHT$LEN PROGRAM
  137. 11290 DATA"                        CALLED
  138. 11300 [131]"                        'TEST'.
  139. 11310 DATA"                        <BACK ARROW)
  140. 11320 [131]"                        @0:TEST  WILL
  141. 11330 DATA"                        DO A SAVE AND
  142. 11340 [131]"                        REPLACE FOR A
  143. 11350 DATA"                        [194][193][211][201][195] PROGRAM
  144. 11360 [131]"                        CALLED 'TEST'.
  145. 11370 DATA"[157]
  146.